home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / cmult.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  299 b   |  12 lines
  1.       subroutine cmult(xr,xi,yr,yi,cr,ci)
  2. c.. ok if cr and ci are really xr and xi or yr and yi
  3.       implicit double precision (a-h,o-z)
  4.       xrtemp=xr
  5.       xitemp=xi
  6.       yrtemp=yr
  7.       yitemp=yi
  8.       cr=xrtemp*yrtemp-xitemp*yitemp
  9.       ci=xitemp*yrtemp+xrtemp*yitemp
  10.       return
  11.       end
  12.